source [file join . InfosGlobales Or Or.tcl]
source [file join . InfosGlobales Bois Bois.tcl]

# Heritage
inherit InfosGlobalesP Presentation

# Constructeur de l'objet InfosGlobalesP

method InfosGlobalesP constructor { control  widgetPere } {

   	this inherited $control	
    
   	# Creation de l'interface  
   	this creerInterfaceFondation $widgetPere

	return 
}



# methode pour la creation des grandes lignes de l'interface

method InfosGlobalesP creerInterfaceFondation { widgetPere } {

	set this(imageTop) [image create photo -file [file join . Images info.gif]]
	#set imageBg [image create photo -file [file join . Images land.gif]]
	set this(canvas) [canvas $widgetPere.c$objName -width 760 -height 72 -highlightthickness 0] 
	#$widgetPere create image 0 0 -image $imageBg
	$this(canvas) create image 563 32 -image $this(imageTop)
	
	#place $this(canvas)  -x 20 -y 21
	
	#395*72	

	set this(entryGold) [label $widgetPere.eGold -textvariable ::GoldValue -background "black" -foreground "white" -width 8]
	place $this(entryGold)  -x 560 -y 7

	set this(entryWood) [label $widgetPere.eWold -textvariable ::WoodValue -background "black" -foreground "white" -width 8]
	place $this(entryWood)  -x 690 -y 7
	
	set ::GoldValue 2000
	set ::WoodValue 1000
	
	bind $widgetPere <Enter> "$objName test"
	
    return  
}

method InfosGlobalesP refreshInfos {x y} {
}

method InfosGlobalesP test {} {
	return
	
}

#Heritage
inherit InfosGlobalesC Control

# Constructeur 

method InfosGlobalesC constructor { parent widgetPere } {
	
	this inherited $parent
   	# creation des facettes de l'agent
   	set this(abstraction) ""
   	set this(presentation) [InfosGlobalesP ${objName}-P $objName $widgetPere]  
     
    # creation de ces fils
    set this(or) [OrC ${objName}_or $objName]
   	set this(bois) [BoisC ${objName}_bois $objName]
   	
	return 
}

method InfosGlobalesC refreshInfos {x y} {
	$this(presentation) refreshInfos $x $y
}







